﻿Imports System.Data.OleDb
Public Class addedrecord
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        bookDetail()
    End Sub
    Sub bookDetail()
        Dim conn As New OleDb.OleDbConnection(ConfigurationManager.ConnectionStrings("BookMeetConnString").ConnectionString)
        conn.Open()
        Dim cmdbook As New OleDbCommand("SELECT TOP 1 ID, Title, Author, PublicationDate, Blurb, Pages, Publisher, AverageRating, imgurl, thumburl FROM booklist ORDER BY ID DESC ", conn)
        cmdbook.Parameters.AddWithValue("@f1", Request.Params("ID"))
        detailView.DataSource = cmdbook.ExecuteReader()
        detailView.DataBind()
        conn.Close()
    End Sub
End Class